1 REM TURTLE-DEMO: 'TUNNEL'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
20 !GRAPHICS:!INIT
30 UX=140:UY=110:UA=  0:GOSUB200
40 UX=180:UY=100:UA=180:GOSUB200
50 !FINISH
60 :
200 FG=12:!PEN0:!MOVEUX,UY:!ANGLEUA:!PEN1
210 !WALKFG:!TURNL10:FG=FG-.029:IFFG>1THEN210
220 S=COS(UA/180*(null)):!PEN0:!MOVEUX-58*S,UY+27*S:AN=323+UA:!PEN1
230 FORI=1TO26:!ANGLEAN:!WALK4:AN=AN+3.3:NEXT
240 !PEN0:!MOVEUX-61*S,UY+30*S:AN=35+UA:!PEN1
250 FORI=1TO26:!ANGLEAN:!WALK3:AN=AN+2.1:NEXT
260 !PEN0:!MOVEUX-50*S,UY+35*S:AN=273+UA:!PEN1
270 FORI=1TO21:!ANGLEAN:!WALK3:AN=AN+3.2:NEXT
280 RETURN